Attribute VB_Name = "Startup"
Option Explicit

Public gLogger As New Logger
Public dLogger As Object

Private gNotifier As New DebugNotifier
Private gX As New XMLNotifier
Private gAssert As New LocalAssertions
Private gRunner As Runner

Public Sub main()
Dim t As New HiResTimer
Dim r As New Runner
Set gRunner = r
t.Start

r.Add gNotifier
'r.Add gX
r.run aForm 'SponsorObject

t.Halt
Debug.Print Format$(t.Elapsed, "#0.0000 seconds")
'Debug.Print gX.xml
End Sub

Public Function assert() As LocalAssertions
gRunner.reinit
Set assert = gAssert
End Function

